library project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1
  { you can add units after this };

{$R *.res}

function ShowForm(): Boolean; stdcall; export;
var
   frmMain: TForm1;
begin
     frmMain := TForm1.Create(nil);
     try
        frmMain.ShowModal();
     finally
       frmMain.Free;
       frmMain := nil;
     end;
end;

exports
  ShowForm;//声明可导出的方法；

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  //Application.CreateForm(TForm1, Form1);
  //Application.Run;
end.

